home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 012 / cursor.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-05-15  |  1.3 KB  |  30 lines
  1. 10  'This program makes a COM program on disk that will set the cursor
  2. 20  'to any shape you wish (at DOS level).  Works with DOS 1.1, and
  3. 30  'probably works with DOS 2.0.  
  4. 40  '  What this little program does is to use the VIDEO interrupt
  5. 50  'to set the cursor type.  Here is what the program does in
  6. 60  'sort-of assembly language
  7. 70  '   MOV AH,01   ;put a 1 into the AH register.  This tells the VIDEO
  8. 80  '               ;interrrupt that you want to set the cursor type
  9. 90  '   MOV CX,0102 ;put the stop & start lines into the CX register
  10. 100  '  INT 10H     ;do the VIDEO interrupt
  11. 110  '  INT 20H     ;do the 'RETURN TO DOS' interrupt to end the program
  12. 120  'The color/graphics adapter has 7 scan lines.  The monochrome has
  13. 130  '13.  Numbers higher than these may cause strange results!
  14. 140  'Ted Batutis, 76703,252.
  15. 150  INPUT"Enter the output filename (something.COM): ";FS$
  16. 160  OPEN FS$ FOR OUTPUT AS #1
  17. 170  INPUT"Enter start line of cursor: ";STT%
  18. 180  INPUT"Enter stop line of cursor: ";STP%
  19. 190  FOR I=1 TO 10
  20. 200  READ J(I)
  21. 210  NEXT I
  22. 220  DATA 180, 1, 185, 0, 0, 205, 16, 205, 32, 0
  23. 230  J(4)=STP%
  24. 240  J(5)=STT%
  25. 250  FOR I=1 TO 10
  26. 260  PRINT #1,CHR$(J(I));
  27. 270  NEXT I
  28. 280  PRINT"Done. "
  29. 290  END
  30.